home *** CD-ROM | disk | FTP | other *** search
/ Electronics Boutique Catalog 1996 Spring / 1996 Electronics Boutique Spring CD-ROM (USA).bin / eb / demos / spycraft.dir / 00107.ls < prev    next >
Encoding:
Text File  |  1995-12-11  |  2.6 KB  |  109 lines
  1. global gMovieSprite, gMovieDuration, gReturnFrame
  2.  
  3. on startMovie
  4.   set the exitLock to 1
  5.   set gMovieSprite to 20
  6.   set the volume of sound 1 to 255
  7.   set the volume of sound 2 to 255
  8. end
  9.  
  10. on legalButton whichSprite
  11.   repeat while the stillDown
  12.     set gReturnFrame to marker(0)
  13.     return 1
  14.   end repeat
  15. end
  16.  
  17. on stopAllQT
  18.   exit
  19.   repeat with x = 1 to 48
  20.     if the type of sprite x > 0 then
  21.       if the castType of cast the castNum of sprite x = #digitalVideo then
  22.         set the movieRate of sprite x to 0
  23.       end if
  24.     end if
  25.   end repeat
  26. end
  27.  
  28. on find whichCast, startFrame, endFrame
  29.   repeat with x = startFrame to endFrame
  30.     go(x)
  31.     repeat with y = 1 to 48
  32.       if the type of sprite y > 0 then
  33.         if the castNum of sprite y = whichCast then
  34.           put "Cast member " & whichCast & " was found in frame " & x & ", in channel " & y & "."
  35.         end if
  36.       end if
  37.     end repeat
  38.   end repeat
  39. end
  40.  
  41. on delayFor howLong
  42.   set howLong to the timer + howLong
  43.   repeat while the timer < howLong
  44.     updateStage()
  45.   end repeat
  46. end
  47.  
  48. on returnFrame whichFrame
  49.   stopAllQT()
  50.   set whichSprite to gMovieSprite + 1
  51.   puppetSound("ReturnB")
  52.   repeat with x = 1 to 2
  53.     set the castNum of sprite whichSprite to the number of cast "returnArrow0"
  54.     updateStage()
  55.     delayFor(15)
  56.     set the castNum of sprite whichSprite to the number of cast "returnArrow1"
  57.     updateStage()
  58.     delayFor(15)
  59.   end repeat
  60.   blackFrame()
  61.   puppetSound(0)
  62.   go(whichFrame)
  63.   set the volume of sound 2 to 255
  64. end
  65.  
  66. on pressButton whichSprite, whichSound, whichHighlightCast, whichFrame
  67.   preLoadCast(whichSound)
  68.   set the castNum of sprite whichSprite to the number of cast "MOREBON.GIF"
  69.   set the castNum of sprite 7 to the number of cast "text0"
  70.   updateStage()
  71.   puppetSound(whichSound)
  72.   updateStage()
  73.   startTimer()
  74.   repeat while the soundBusy of 1 or (the timer < 5)
  75.     updateStage()
  76.   end repeat
  77.   set the castNum of sprite whichSprite to the number of cast "MOREBOFF.GIF"
  78.   set the castNum of sprite 7 to the number of cast whichHighlightCast
  79.   updateStage()
  80.   blackFrame()
  81.   puppetSound(0)
  82.   go(whichFrame)
  83.   set the volume of sound 2 to 127
  84. end
  85.  
  86. on blackFrame
  87.   repeat with x = 1 to 48
  88.     set the locV of sprite x to -500
  89.   end repeat
  90.   puppetTransition(50, 0, 12)
  91.   updateStage()
  92.   puppetTransition(0)
  93. end
  94.  
  95. on beatFast
  96.   exit
  97.   set the volume of sound 1 to the volume of sound 2
  98.   sound stop 2
  99.   repeat with x = 1 to 15
  100.     set the volume of sound 1 to the volume of sound 1 + 8
  101.     puppetSound(0)
  102.     puppetSound("HEART.WAV")
  103.     delayFor((18 - x) * 2)
  104.   end repeat
  105.   sound stop 1
  106.   puppetSound(0)
  107.   delayFor(20)
  108. end
  109.